home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / Misc / TextloaderTNG / Rexx / FW-BoldItalic.rexx < prev    next >
OS/2 REXX Batch file  |  1999-09-02  |  696b  |  40 lines
  1. /* Imports text from TLNG 2.0 to FinalWriter97   */
  2. /* FW97_BoldItalic 1.0 © 10.08.99 by Jochen Grus */
  3.  
  4. OPTIONS RESULTS
  5. ADDRESS "FINALW.1"
  6. Status FontPath
  7. fontpath = Result
  8. Status FontName
  9. fontname = Result
  10. pos = LASTPOS('_', fontname)
  11. IF (pos == 0) THEN
  12.    DO
  13.    fontpath = 'Normal'
  14.    END
  15. ELSE DO
  16.    pos = LASTPOS('_', fontpath)
  17.    fontpath = 'Normal'
  18.    END
  19. Style fontpath
  20. IF (pos == 0) THEN
  21.    DO
  22.    fontpath = 'Bold'
  23.    END
  24. ELSE DO
  25.    pos = LASTPOS('_', fontpath)
  26.    fontpath = 'Bold'
  27.    END
  28. Style fontpath
  29. pos = LASTPOS('_', fontname)
  30. IF (pos == 0) THEN
  31.    DO
  32.    fontpath = 'Italic'
  33.    END
  34. ELSE DO
  35.    pos = LASTPOS('_', fontpath)
  36.    fontpath = 'Italic'
  37.    END
  38. Style fontpath
  39. Type ' '
  40. Paste